home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_121_setaProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  553 b   |  15 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vValue to the text of member "Changing Property SetAProp Input Field 2"
  6.     set vValue to checkValue(vValue)
  7.     set vProperty to the text of member "Changing Property SetAProp Input Field 1"
  8.     set vProperty to checkValue(vProperty)
  9.     if (vValue <> EMPTY) and (vProperty <> EMPTY) then
  10.       setaProp(gDefaultPropList, vProperty, vValue)
  11.       set the text of member "Changing Property SetAProp Display Field 1" to string(gDefaultPropList)
  12.     end if
  13.   end if
  14. end
  15.